#!/usr/bin/perl -w
unshift @INC, "$ENV{'HOME'}/perl/modules/";   # change as appropriate
require graph;
$g = graph::make_random( 20, 10 );
graph::print_details( $g );
$ra_csg = graph::get_csg_all( $g );
foreach $csg (@$ra_csg)
{
$sg = graph::make_graph_from_csg_list( $g, $csg );
graph::print_details( $sg );
}
validate_node_and_edge_operations();
print_details( $g );
($Ne, $Nc) = node_and_edge_counts( $g );
$g = create();
destroy( $g );
add_node( $g, $n );                add node
sub_node( $g, $n );           subtract node
add_edge( $g, $n1, $n2 );          add edge
sub_edge( $g, $n1, $n2 );     subtract edge

make_random( $num_nodes, $num_edges_ask );

$rh = get_csg_around_node( $g, $n );       returns a hash table of the nodes
$ra = get_csg_all( $g );                   returns an array of the above
$sg = make_graph_from_csg_list( $g, $rh );